From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Aug 2007 17:56:10 +0000 (+0000)
Subject: (rmail-make-summary-line): Find end of msg number to update deleted flag.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~534^2~3^2~1979
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dec125fce6f11418d6c444e5bfc06e80a0efd6c5;p=emacs.git

(rmail-make-summary-line): Find end of msg number to update deleted flag.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 85527e59f67..fd5931fdef9 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -288,12 +288,14 @@ nil for FUNCTION means all messages."
 		    (if (zerop (% rmail-new-summary-line-count 10))
 			(message "Computing summary lines...%d"
 				 rmail-new-summary-line-count))
-		    (rmail-make-summary-line-1 msg)))))
+		    (rmail-make-summary-line-1 msg))))
+	delpos)
     ;; Fix up the part of the summary that says "deleted" or "unseen".
-    (aset line 5
-	  (if (rmail-message-deleted-p msg) ?\D
+    (string-match "[0-9]+" line)
+    (aset line (match-end 0)
+	  (if (rmail-message-deleted-p msg) ?D
 	    (if (= ?0 (char-after (+ 3 (rmail-msgbeg msg))))
-		?\- ?\ )))
+		?- ?\s)))
     line))
 
 ;;;###autoload